'log in C1  system author: chaoyuew@cn.ibm.com
'updated on 01/03/16 old code
'updated on 17/03/16 re-write code to enter user details'
'updated on 21/04/16 re-write env select window'

ExecuteGlobal CreateObject("Scripting.FileSystemObject").OpenTextFile("C1 Invoked Function.vbs",1).ReadAll'调用函数库
num =inputbox ("Please select C1Env: " & vbCrLf & vbCrLf &"1.PROD    6.FC1  11.SIT2C  16.TRNM" & vbCrLf &"2.BET1    7.FC2  12.ST2    17.UAT1" & vbCrLf & "3.CAR     8.FC4  13.ST3    18.UATA" & vbCrLf & "4.CCBPRE1 9.M2C  14.TRN1   19.ST5U " & vbCrLf & "5.CCBPS1 10.SIT1 15.TRN2   20."& vbCrLf,"Enter required details","1")
If IsEmpty(num) Then Wscript.Quit
'<---------------------------------------Open C1 env in IE
FindC1EnvInIE(GetC1Env(num)) : LogonEnv : SwitchMenu() 

